Написать программу на Паскале,используя цикл с постусловием (Repeat-until) для решения задачи. Вычислить сумму всех двухзначных чисел. S=10+2+3+...+99. Сделайте так чтобы мой Паскаль, принял вашу программу
Самый простой Для модернизации рекомендую убрать циклы и вместо них создать массив char'ов с количеством элементов равному размеру входящего текста и выводить его вместо циклов.
#include <iostream>
using namespace std;
void customFunk(const char *text) {
cout << "+-";
for (int i = 0; i < strlen(text); i++) {
cout << "-";
}
cout << "-+" << endl;
printf("| %s |", text);
cout << endl << "+-";
for (int i = 0; i < strlen(text); i++) {
cout << "-";
}
cout << "-+" << endl;
}
int main()
{
customFunk("Hello World!");
return 0;
}
Объяснение:
Самый простой Для модернизации рекомендую убрать циклы и вместо них создать массив char'ов с количеством элементов равному размеру входящего текста и выводить его вместо циклов.
Задача 1
program z1;
var n,a,i,k:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if a = 0 then k:=k+1
end;
writeln('Количество нулей среди чисел: ',k)
end.
Задача 2
program z2;
var n,a,i,m:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if i = 1 then m:=a;
if a > m then m:=a
end;
writeln('Максимальное число среди чисел: ',m)
end.
или
program z2;
var n,i,m:integer;
a:array[1..100] of integer;
begin
write ('Введите количество чисел (n<=100): ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a[i]);
if i = 1 then m:=a[i];
if a[i] > m then m:=a[i]
end;
writeln('Максимальное число среди чисел: ',m)
end.