Program morojenka;
var i,s:integer;t:string;
begin
s:=0;
for i:=1 to 10 do
begin
Writeln('Любите ли вы мороженое?(Введите "Да" или "Нет")');
Readln(t);
if t='Да' then s:=s+1; end;
Writeln(s,' любят мороженое')
end.
ответ в файлике )
учи логику)
& - конъюнкция( логическое умножение)
V- дизъюнкция ( логическое сложение)
- - инверсия ( отрицания )
Program pr;
uses crt;
var
mas: array[1..10] of real;
sum: real;
i: integer;
Begin
sum:=0;
for i:=1 to 10 do
Begin
write('mas', i, ' = ');
readln(mas[i]);
sum:=sum + mas[i];
end;
writeln();
writeln('sum = ' , sum);
readln;
<span>end. </span>
А) при удалении строки 2 ячейка сдвинется вверх на одну строку, станет ячейкой Е3 и будет находиться сумму ячеек A3 и D3
б) при удалении строки 7 ничего не изменится
в) после вставки пустой строки перед строкой 4 ячейка сдвинется вниз на одну строку, станет ячейкой Е5 и будет считать сумму ячеек A5 и D5
г) ячейка сдвинется налево на один столбик, станет ячейкой D4 и будет считать сумму ячеек А4 и C4
д) ничего не изменится
Они писали на бумаге
пример:
три богатыря бумага как там