Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
вот так понятней буде)) ну и более правильно, для
var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.
6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33
var a: array [1..100] of integer;
i,n: integer;
s: string;
begin
randomize;
for i : =1 to 100 do
a[i]: = random(1000)+1000;
a[i]: =a[i] mod 100;
a[i]: =a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
end.
var s1,s2: string;
s1: ="параллелограмм";
s2: ="гром";
for i: = 1 to length(s1) do
if i > length(s2) then s[i]='';
if s1[i]< > s2[i] then s1[i]=s2[i];
writeln(s1);
чем не вариант, если правил нету)
Популярные вопросы