Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
Истинное суждение-мой компьютер персональный
ложное суждение-мой клмпьютер летит
8^135 = 1 и 135 нулей
8^47 = 1 и 47 нулей
64 = 8^2 = 1 и 2 нуля
8 = 10 в восьмиричной
1 = 1 в восьмиричной
теперь считаем единицы и получаем результат 5 единиц
type
person=record
fam:string;
imya:string;
day:integer;
end;
var
a:array[1..50] of person;
i,n,z:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('fam-');readln(a[i].fam);
write('imya-');readln(a[i].imya);
write('day-');readln(a[i].day);
end;
write('z-');readln(z);
for i:=1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
readln;
end.