Ребята Вообще не втупляю 1. Даны два числа. Вывести на экран те из них, которые являются трёхзначными и целыми. 3.. Вычислить и вывести произведение квадратов чисел, кратных трём, натурального ряда от 1 до N.
Var s: string; a, b: integer; begin readln(s); if s[1] = 'x' then begin a := StrToInt(s[3]); b := StrToInt(s[5]); if s[2] = '-' then a := -a; writeln(b - a); end else if s[3] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[5]); if s[2] = '-' then begin a := -a; b := -b; end; writeln(b - a); end else if s[5] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[3]); if s[2] = '-' then b := -b; writeln(a + b); end end.
учтите что никакой защиты от дурака или неверного ввода
1)
Program p1;
Var a,b,c,z: real;
Begin
Write('Введите 1 число ');
readln(a);
Write('Введите 2 число ');
readln(b);
z:=frac(a);
c:=frac(b);
if (a > 99) and (z = 0) then Writeln(a);
if (b > 99) and (c = 0) then Writeln(b);
End.
*функция frac() берет от вещественного числа дробную часть
2)
Program p1;
Var a, i, n, k: integer;
Begin
Write('Введите количество чисел последовательности: ');
readln(n);
k:=1;
For i:=1 to n do begin
readln (a);
if (a mod 3 =0) then k:=k*a*a;
end;
Writeln('Произведение квадратов чисел, кратных трём - ',k);
End.