Лат. carne vale, «прощай, мясо» либо лат. car val — «корабль шутов»
Var
i, k, n: integer;
begin
write('Введите натуральное число N-> ');
readln(n);
k := 0;
i := 3;
while i <= n do
begin
k := k + 1;
i := i + 3;
end;
writeln('Результат: ', k)
end.
Тестовое решение:
Введите натуральное число N-> 1651
Результат: 550
Данная программа написана для Pascal:
var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.
Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
1). Намалювати круглий тулуб.
2).Намалювати круглу голову.
3).Намалювати ноги.
4).Намалювати руки.
5).Намалювати очі.
6).Намалювати носа, схожого на моркву.
7).Намалювати усмішку.
8).Намалювати відро на його голові.9).Намалювати шарф.
10).Намалювати куртку.
11).Намалювати рукавиці на руках.
12).Намалювати на ногах взуття.
13).Розфарбувати сніговика.