1 Берем корж.
2 Делаем крем.Ложим сметану,творог,сахар.
3 Включаем миксер.
4Всбиваем крем.
Var n,i:integer;
S:real;
begin read(n);
S:=0;
for i:=1 to n do
S:=S+1/2+i;
writeln(S);
<span>end.</span>
#include <iostream>
#include <Windows.h>
using namespace std;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
char s[128]; size_t i = 1; int c=0;
cin.getline(s, 128); s[strlen(s)] = ' ';
for(size_t i=1; i<strlen(s); i++)
if (s[i] == 'а' && s[i - 1]!=' ' && (s[i + 1] == ' ' || s[i + 1] == ',' || s[i + 1] == '.' || s[i + 1] == '!' || s[i + 1] == '?'))
c++;
cout << c << endl;
system("pause");
return 0;
}
Писал на Visual Studio 2017
21211
25•3=75 75-5=70 70•3=210 210-5-5=200
Var i,n,s: integer;beginn:=10;while i < n+1 dobegins:= s + i;writeln(i,s:4);i:= i +1;end;end.