var
s : integer;
m : BigInteger;
begin
m := 1;
writeln('даны числа: 1..20');
for var i := 1 to 20 do begin
s := s+(i*i);
m := m*(i*i);
end;
writeln('сумма квадратов = ', s);
writeln('произведение квадратов = ', m);
end.
Оживлёная улица.Мальчик идёт со школы с рюкзаком.На светофоре горит зелёный свет.Машины остоновились и мальчик начинает переходить дорогу.
*На столе он перед нами, на него направлен взор,подчиняется программе, носит имя...(Монитор).***Не зверушка, не летаешь, а по коврику скользишьи курсором управляешь. Ты – компьютерная...(Мышь).***Нет, она – не пианино, только клавиш в ней – не счесть! Алфавита там картина, знаки, цифры тоже есть.Очень тонкая натура. Имя ей ... (Клавиатура).***Сохраняет все секреты «ящик» справа, возле ног,и слегка шумит при этом. Что за «зверь?». (Системный блок).***Сетевая паутина оплела весь белый свет, не пройти детишкам мимо. Что же это? (Интернет).
Мой лучший друг-компьютер. Мне с ним все супер-пупер. А остальное все да фени. Катись все к ене-бене… Не нужно мне застолье, Пусть все дела в постое. С утра залезу в интернет, А всем домашним скажу”нет”. Друзья по интернету- От вас я жду ответа, Веселого привета И дельного совета. Вновь вы скучать мне не даете И стрелы злобы не метнете. Меня вы чем-нибудь займете, До глубины души проймете. Без вас теперь уж грустно мне. Вы снитесь даже мне во сне. Я с вами снова весела- Сама я свет и доброта!
Мой компьютер, милый,Я тебя убила –Ацетоном залила,Ногти красила,И дрогнула рука!Я тебе испортила ушки,Эти маленькие дырочки,Которыми ты слушаешь,Я вела себя по-свински,Но ты же знаешь,Ты – мой самый близкийМилый человечек,Ну шевельни свои железкиИ загрузись, прости!
Program programma;
Uses crt;
var a,b,min: real;
Begin clrscr;
write('Введите a = ');
readln(a);
write('Введите b = ');
readln(b);
if a>b then
min:=b
else
begin
if a<b then
min:=a;
if a=b then
write('a и b равны');
end;
write('Min = ', min);
readln;
End.
Блок-схема нужна тогда, когда у нас есть ветвления (условия, циклы), а здесь их нет, потому что решение можно записать в одну строчку:
begin
var a, b, c: integer;
readln(a);
readln(b);
readln(c);
writeln((a = b) or (a = c) or (b = c));
end.
Все решение в этой строчке:
(a = b) or (a = c) or (b = c)