Программа на языке С++
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
float t;
cout << "Программа для определения вида осадков." << '\n' << "Введите температуру: ";
cin >> t;
while (t==0) {
cout << "Введите температуру, не равную 0: " << '\n';
cin >> t;
}
if (t>0) {
cout << "На улице идет дождь";
} else {
cout << "На улице идет снег";
}
return 0;
}
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
Var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
Вводишь А и Х- получаешь Y.
var
a,x,y:real;
begin
writeln('Введите A и X');
readln(a,x);
y:=(sqr(x)+sqr(a))/(1-sin(ln(sqr(x))));
writeln('Y = ',y);
<span>end.</span>
124(x) = 84(10)
x^2+2*x+4 = 84
x = 8
124(8) = 8^2+2*8+4 = 64+16+4 = 84(10)
Ответ: 8