uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');
end.
#include<iostream>
#include<cmath>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
int N;
cout <<"Введите количество чисел: ",cin >> N;
cout <<"Введите сами числа: ";
int k = 0;
for(int i = 0; i < N; i++)
{
int A;
cin >> A;
if (A > 3)
{
int B = 1, K = sqrt(A), d = 2;
while(d <= K)
{
if (A % d++ == 0)
{
B = 0;
break;
}
}
if (B) k++;
}
else if (A > 1) k++;
}
cout <<"Количество простых, среди введённых: "<<k;
return 0;
}
Для начала зайди в Paint всё легко.... для начала найди пэинт. пуск→все программы →стандартные →погледи найди Paint →кликни на него →он откроется →как мы уже знаем нет процессора в виде ромба, или МОЛНИИ! →берём квадрат или овал. если хочешь сделать круглый то нажми овал и держа Shift веди его сколько надо.
<span>Считать это хорошо поставленной задачей нельзя ни в коем случае. Это просто пустые слова, если "не знаю куда" это не название какого-то места, "не знаю что" не название предмета.</span>
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.