Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a, b, s : real;
r, p, d : real;
begin
write ('введите певрое число- ');
readln (a);
write ('введите второе число- ');
readln (b);
s: = a+ b;
r : = a - b;
p : = a* b;
d : = a/b;
writeln ('сумма =', s);
writeln ('разность =', r);
writeln ('произведение =', p);
writeln ('частное = ', d);
readln
end.
program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
1)котят 7
2)рыжих котят 5
3)зелоноглазых котят 3
4)котят рыжих и зеленоглазых 3
5)котят рыжих или зеленоглазых 3
6)рыжих и не зеленоглазых котят 3
7)не рыжих и не зеленоглазых 1
исполняемые файлы:
test.exe = 459 кб
photo.exe = 117 кб
letter.com - 198 кб
графические файлы:
nature.jpg = 314 кб
program.bmp = 361 кб
текст. документы:
comp.doc = 238 кб
получается порядок:
test.exe
program.bmp
nature.jpg
comp.doc
letter.com
photo.exe
Популярные вопросы