1. Ввести с клавиатуры переменные a,b,x,y. Вычислить заданное арифметическое выражение: F= (ab2 +5x)(x-4Öy)
2. Ввести число, обозначающее размер одной фотографии в Мбайтах. Определить, сколько фотографий поместится на флэш-карту объёмом 2 Гбайта.
Пример:
Введите размер фотографии в Мбайтах: 6.3
Поместится фотографий: 325.
3. Составить программу ввода оценки Р, полученной учащимся, и выдачи текста:
“Молодец!”, если Р=5;
“Хорошо”, если Р=4;
“Лентяй”, если Р£3.
4. Ввести число. Если оно четное, разделить его на 4, если нечетное – умножить на 5.
begin
readln(a);
s:=0;
z:=a;
for i:=1 to 3 do begin
s:=s+(z mod 10);
z:=z div 10;
end;
if s mod 2 = 0 then writeln('1. Верно')else writeln('1. Неверно');
z:=a;
s:=z mod 10;
z:=z div 10;
m:=0;
for i:=1 to 2 do begin
if s < z mod 10 then begin
m:=1;
break;
end
else begin
s:=z div 10;
z:=z div 10;
end;
end;
if m = 0 then writeln('2. Верно')else writeln('2. Неверно');
z:=a;
m:=0;
for i:=1 to 3 do begin
if z mod 10 = 5 then begin
m:=1;
break;
end else begin
z:=z div 10;
end;
end;
if m = 1 then writeln('3. Верно')else writeln('3. Неверно');
if a mod 10=7 then writeln('4. Верно')else writeln('4. Неверно');
end.