Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end. переставь значения и все норм будет
Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.
<span>Если нигде я не ошибся, то Петя записал числа от 1 до 1079 и начал писать следующее число 1080, написал 1 и бросил. Ответ 1</span>
var
x,days,y:integer;
begin
readln(x)
y=0;
days=0;
while y<x do
begin
days=days+1;
y=y+4-3;
end;
writeln('количество дней :' , days);
END.
#include <iostream>
using namespace std;
int main()
{
<span> int a[15];
</span><span> int i = 0;
</span><span> int sum = 0;
</span><span> for (; i < 15; i++)
</span> cin >> a[i];
for (i = 14; (i != 0) && (a[i]>0); i--) <span>
sum += a[i];</span>
cout << "i = " << i+1 << endl;
<span> cout << "summa = " << sum << endl;
</span><span> return 0;
</span><span>}</span>