1.Найти и вывести на экран все целые числа из промежутка от 1 до K, которые заканчиваются на цифру 3
2.Найти сумму четных целых чисел на промежутке от 1 до K.
3.Вывести все натуральные трехзначные числа, в которых есть заданная цифра.
СРОЧНО, ПОМОГИТЕ, ПОЖАЛУЙСТА. НА ПАСКАЛЕ
Ответы
Ответ дал:
0
1)
Var K, I: Integer;
Begin
ReadLn(K);
For I:=1 to K do Begin
If (I-(I div 10)*10) mod 10 = 3 then WriteLn(I);
End;
End.
2)
Var K, I: Integer;
O: Longint;
Begin
ReadLn(K);
For I:=1 to K do Begin
If I div 2 = I / 2 then
O:=O+I;
End;
WriteLn(O);
End.
3)
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Ответ дал:
0
так, окей
Ответ дал:
0
и ответьте, пожалуйста, на 1 вопрос
Ответ дал:
0
поменяй WriteLn на Write
Ответ дал:
0
помогло?
Ответ дал:
0
++
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад