if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
Ответ дал: Гость
по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'
uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of 1 : write ( 'на дереве сидела ' ,n , ' ворона' ); 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' ); 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' ); end else write ( 'ветка обломилась! ' ); end; readln; end.
Ответ дал: Гость
var
i,n: integer;
begin
read(n);
for i: =0 to 3 do
writeln (4*n-i);
end.
Ответ дал: Гость
1. вывести на экран 6 раз своё имя
program imya;
const n=6;
var i: integer;
begin
for i: =1 to n do
writeln('ваше имя');
end.
пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). ещё хочу отметить, что имя вводится по- и нельзя терять апострофы ( ' ).
2. program sum;
var sum: integer;
m: array[1..4] of integer;
i: integer;
begin
m[1]: =6
for i: =2 to 4 do begin
m[i]: =m[i-1]+1;
end;
sum: =m[1];
for i: =2 to 4 do begin
sum: =sum+m[i];
end;
writeln(sum);
end.
пояснения: можно было делать и по-другому, но так тоже верно. тут использовалось два цикла и массив. а блок-схему сами
Популярные вопросы