Предмет: Информатика,
автор: Вика3003
Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо
Ответы
Автор ответа:
0
Program Zadacha;
Var a: Array [1..3] of Integer;
sum, i: Integer;
Begin
WriteLn('Введите 3 числа через пробел');
For i := 1 To 3 Do
Read(a[i]);
For i := 1 To 3 Do
If (a[i] Mod 2 = 0) And (a[i] Div 10 = 1) Then
sum := sum + a[i];
WriteLn(sum);
ReadLn;
End.
Var a: Array [1..3] of Integer;
sum, i: Integer;
Begin
WriteLn('Введите 3 числа через пробел');
For i := 1 To 3 Do
Read(a[i]);
For i := 1 To 3 Do
If (a[i] Mod 2 = 0) And (a[i] Div 10 = 1) Then
sum := sum + a[i];
WriteLn(sum);
ReadLn;
End.
Автор ответа:
0
задача такая
Автор ответа:
0
даны 3 числа найти кол-во 2-х из них
Автор ответа:
0
var a,b,c,k:integer;
begin
write('ââåäèòå 3 ÷èñëà');
readln(a,b,c);
k:=0;
if (a>=10) fnd (a<=99) then k:=k+1;
if (b>=10) fnd (b<=99) then k:=k+1;
if (c>=10) fnd (c<=99) then k:=k+1;
writeln('k=',k)
readln;
end.
begin
write('ââåäèòå 3 ÷èñëà');
readln(a,b,c);
k:=0;
if (a>=10) fnd (a<=99) then k:=k+1;
if (b>=10) fnd (b<=99) then k:=k+1;
if (c>=10) fnd (c<=99) then k:=k+1;
writeln('k=',k)
readln;
end.
Автор ответа:
0
там где fnd там будет and
Интересные вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Геометрия,
автор: kamidollina511
Предмет: Русский язык,
автор: kopduhat
Предмет: Биология,
автор: grek2001
Предмет: Биология,
автор: dicsan