Var y,x,i,a,b,c,r,m,n,v: integer; begin for a: = 2 to 7 do if (a=2)or(a=3)or(a=5)or(a=7) then for b: = 2 to 7 do begin if (b=2)or(b=3)or(b=5)or(b=7) then for c: = 2 to 7 do if (c=2)or(c=3)or(c=5)or(c=7) then begin x: =a*10+b; y: =b*10+c ; r: =a+b+c; m: =2; while x mod m< > 0 do m: =m+1; if m=> x-1 then begin n: =2; while y mod n< > 0 do n: =n+1; if n> =y-1 then begin v: =2; while r mod v< > 0 do v: =v+1; writeln(a*100+b*10+c); end; end; end; end; end.
трехзначное число называется суперпростым если его цифры, сумма цифр, двухзначные числа из первой и второй, второй и третьей цифр - простые числа. но, цифра 1 - не простое число. сколько всего таких чисел и что это за числа. составьте программу решения
1. writeln
2. 3 вариант
var
c,p,s: word;
begin
writeln ('Введи стороны прямоугольника c и p ');
readln (c,p);
s := c * p;
writeln ('s = ', s);
readln;
end.
3. 112,02
Объяснение:
1.
Операторы ввода данных - read, readln
Операторы вывода данных (на экран) - write, writeln
if - начало условного оператора, после которого следует условие
begin - начало программного блока
end - конец программного блока
2.
1) var
c,p,s: word;
begin
writeln ('Введи стороны прямоугольника c и p ');
readln (c,p);
s := c * p;
Отсутствует вывод данных на экран и конец программного блока (writeln ('s = ', s); end.)
2) var
c,p: word;
begin
writeln ('Введи стороны прямоугольника c и p ');
readln (c,p);
s := c * p;
writeln ('s = ', s);
readln;
end.
В блоке описания переменных (var c,p: word;) отсутствует переменная s, использующаяся для вычисления и хранения площади прямоугольника
4) begin
writeln ('Введи стороны прямоугольника c и p ');
readln (c,p);
s := c * p;
writeln ('s = ', s);
readln;
end.
Отсутствует блок описания переменных (var c,p,s: word;)
3. Форматированный вывод
s = 112,01716
writeln (s:6:2)
Под вывод на экран переменной s отводят 6 знакомест (считая целую часть числа, запятую и дробную часть числа), под вывод дробной части числа отводят 2 знакоместа (форматированный вывод округляет дробную часть - аналогичные задания на картинках)
112,02 (т.к. следующая цифра 7)
const
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string;
n,i,err:integer;
isdigit:boolean;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
i:=1;
isdigit:=True;
n:=Length(s);
repeat
isdigit:=isdigit and (s[i] in digits);
Inc(i)
until (not isdigit) or (i>n);
if isdigit then
begin Val(s,n,err); Writeln('Введено корректное число ',n) end
else Writeln('Число содержит нецифровой символ')
end.
Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:
var
s:string;
n,err:integer;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
Val(s,n,err);
if err=0 then Writeln('Введено корректное число ',n)
else Writeln('Число содержит нецифровой символ')
end.