program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Ответ дал: Гость
var
n: integer;
begin
readln(n);
case n mod 12 of
4: writeln('год крысы');
5: writeln('год коровы');
6: writeln('год тигра');
7: writeln('год зайца');
8: writeln('год дракона');
9: writeln('год змеи');
10: writeln('год лошади');
11: writeln('год овцы');
0: writeln('год обезьяны');
1: writeln('год петуха');
2: writeln('год собаки');
3: writeln('год свиньи');
end;
end.
Ответ дал: Гость
таблица умножения
программа телепередач
телефонный справочник
прогноз погоды
меню в столовой
Ответ дал: Гость
картинка должна быть в папке с программой и быть в формате bmp
uses graphabc;
var n: string; b: picture; s: integer;
begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.
Популярные вопросы