Задание №1:
program Program1;
var a, b, c, d, S1, S2: real;
begin
writeln('Введите значения a и b:');
readln(a, b);
S1 := a * b;
S2 := S1 / 6;
writeln('Введите значение c:');
readln(c);
d := S2 / c;
writeln('Вторая сторона второго прямоугольника = ', d);
end.
Задание №2:
1 итерация цикла: S = 3
2 итерация цикла: S = 21
3 итерация цикла: S = 81
Ответ: 81.
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>
int main(int argc, char* argv[])
{
char s[256] = {0};
char prevChar = {0};
std::cin >> s;
int len = strlen(s);
prevChar = s[0];
int count = 1;
for (int i = 1; i < len+1; i++)
{
if (s[i] == prevChar) {
count++;
} else {
printf("%d %c\n", count, prevChar);
count = 1;
prevChar = s[i];
}
}
return 0;
}
Циклической,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Почта, телеграф, радио, телефон, телевизор, компьютер. Вроде так